home *** CD-ROM | disk | FTP | other *** search
/ Aminet 24 / Aminet 24 (1998)(GTI - Schatztruhe)[!][Apr 1998].iso / Aminet / disk / cdrom / amibonlex.lha / Install < prev    next >
Text File  |  1998-02-23  |  3KB  |  165 lines
  1. ; Installer för AmiBonLex
  2. ; 1998-02-22 av Bengt Engdahl <a97benen@student.his.se>
  3. ;
  4. ; $VER: AmiBonLex Install 0.5
  5. ;
  6.  
  7. (set where (cat "Var god välj var AmiBonLex ska installeras!\nEn katalog kallad 'AmiBonLex' kommer att skapas där."))
  8. (set skajaginstdt "Du har inte MacPict2 datatypen installerad.\nDu måste ha den om du vill titta på bilder från Bonniers lexicon CD'n.\nSka jag installera den?")
  9. (set villejinstdt "Du valde att inte installa MacPict2 datatypen. Därför kan du inte kolla på bilderna från Bonniers lexikon CD'n.")
  10. (set aiffdtfannsej "Du har inte AIFF-datatypen installerad, utan den kan du inte höra ljud/musik från Bonniers lexikon CD'n.")
  11. (set newtopaz8fannsej "Du har inte newtopaz fonten (storlek 8) installerad, det rekommenderas att du skaffar den men den är inte nödvändig för att använda AmiBonLex.")
  12. (set ejinstallat 0)
  13.  
  14. (complete 0)
  15.  
  16. (set #progdest
  17.     (askdir
  18.         (prompt where)
  19.         (help @askdir-help)
  20.         (default @default-dest)
  21.     )
  22. )
  23.  
  24. (set #progdest (tackon #progdest "AmiBonLex"))
  25.  
  26. (complete 20)
  27.  
  28. (makedir #progdest)
  29.  
  30. (complete 25)
  31.  
  32. (copyfiles
  33.     (source "ABDL96data")
  34.     (dest #progdest)
  35. )
  36. (copyfiles
  37.     (source "ABDL97data")
  38.     (dest #progdest)
  39. )
  40.  
  41. (complete 30)
  42.  
  43. (makedir (cat #progdest "/fonts"))
  44.  
  45. (copyfiles
  46.     (source "fonts")
  47.     (all)
  48.     (dest (cat #progdest "/fonts"))
  49. )
  50.  
  51.  
  52. (complete 35)
  53.  
  54. (copyfiles
  55.     (source "AmiBonLex")
  56.     (dest #progdest)
  57.     (infos)
  58. )
  59.  
  60. (complete 40)
  61.  
  62. (copyfiles
  63.     (source "AmiBonLex.Guide")
  64.     (dest #progdest)
  65.     (infos)
  66. )
  67.  
  68. (complete 50)
  69.  
  70. (if
  71.     (AND
  72.         (exists ("SYS:Classes/DataTypes/MacPict.DataType"))
  73.         (exists ("SYS:Devs/DataTypes/Macintosh PICT2"))
  74.     )
  75. (
  76.     (set nonsens_vet_ej hur_loesas_annars)
  77.     ;macpict2 dt'n fanns redan...
  78. )
  79.  
  80. (
  81. (select
  82.  (askchoice
  83.   (prompt skajaginstdt)
  84.   (choices "Ja" "Nej")
  85.   (help "Ja rekommenderas!\n\n" @askchoice-help)
  86.   (default 0))
  87.     (
  88.         (copyfiles
  89.             (source "MacPict.DataType")
  90.             (dest "SYS:Classes/DataTypes/")
  91.         )
  92.         (copyfiles
  93.             (source "Macintosh PICT2")
  94.             (dest "SYS:Devs/DataTypes/")
  95.             (infos)
  96.         )
  97.     )
  98.     (
  99.         (message villejinstdt)
  100.         (set ejinstallat 1)
  101.     )
  102.  )
  103. )
  104. )
  105.  
  106. (complete 60)
  107.  
  108. (if (= ejinstallat 0)
  109.     (if
  110.         (exists ("SYS:Devs/DataTypes/MacPaint"))
  111.     (
  112.             (copyfiles
  113.                 (source "MacPaint")
  114.                 (dest "SYS:Devs/DataTypes/")
  115.                 (infos)
  116.             )
  117.     )
  118.     (
  119.         (set nonsens_vet_ej hur_loesas_annars)
  120.         ;MacPaint desc'en fanns inte, lite onödigt att byta ut ngt som inte finns eller?
  121.     )
  122.     )
  123.  
  124. )
  125.  
  126. (complete 70)
  127.  
  128. (if
  129.     (AND
  130.         (exists ("SYS:Classes/DataTypes/aiff.datatype"))
  131.         (exists ("SYS:Devs/DataTypes/AIFF"))
  132.     )
  133.     (
  134.         (set nonsens_vet_ej hur_loesas_annars)
  135.         ;aiff dt'n fanns redan...
  136.     )
  137.     (
  138.         (message aiffdtfannsej)
  139.     )
  140. )
  141.  
  142. (complete 80)
  143.  
  144. (if
  145.     (exists ("Fonts:newtopaz/8"))
  146.     (
  147.         (set nonsens_vet_ej hur_loesas_annars)
  148.         ;newtopaz/8 finns...
  149.     )
  150.     (
  151.         (message newtopaz8fannsej)
  152.     )
  153. )
  154.  
  155. (complete 99)
  156.  
  157. ;Här är installationen egentligen klar men för att få korrekt meddelande
  158. ;om var programmet är installerat och korrekt placering av eventuell
  159. ;log-fil så görs detta...
  160.  
  161. (set @default-dest #progdest)
  162.  
  163. (complete 100)
  164.  
  165.